home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
aminet2.lha
/
AminetRct2
< prev
next >
Wrap
Text File
|
1998-06-23
|
3KB
|
122 lines
INFO SCREEN
IF result ~= "RESULT" THEN
pubscreen = "rt_pubscreen="result
ELSE
pubscreen = ""
'GETFOLDERINFO MAX'
entries=result
IF entries=0 THEN
DO
test=RTEZREQUEST(MSG_NOMAIL,"_Ok",,pubscreen)
EXIT
END
lfi = 0
t = 0
checkn = 0
filename. = ''
'GETMAILINFO SUBJECT'
sub = LEFT(RESULT,15)
IF sub = today | sub = weekly THEN
DO
test=RTEZREQUEST(MSG_LISTFILES,MSG_LISTFILES_GAD,,pubscreen)
lfi = rtresult
END
IF lfi THEN
DO
t = 1
'GETMAILINFO FILE'
filename.1 = RESULT
END
ELSE
DO
test=RTEZREQUEST(MSG_ASKCHECK,MSG_ASKCHECK_GAD,,pubscreen)
checkn = rtresult
IF checkn = 0 THEN EXIT
IF checkn = 1 | checkn = 3 THEN check = today
IF checkn = 2 | checkn = 4 THEN check = weekly
DO n = entries-1 TO 0 BY -1
'SETMAIL' n
'GETMAILINFO SUBJECT'
sub = LEFT(RESULT,15)
IF checkn = 5 THEN
DO
IF sub = today | sub = weekly THEN
DO
t = t + 1
'GETMAILINFO FILE'
filename.t = RESULT
END
END
ELSE
IF sub = check THEN
DO
t = t + 1
'GETMAILINFO FILE'
filename.t = RESULT
END
END
END
IF t = 0 THEN
DO
test=RTEZREQUEST(MSG_MAILNOTFOUND,"_Ok",,pubscreen)
EXIT
END
IF checkn < 3 THEN t = 1
DO mail = 1 to t
line. = ''
ADDRESS COMMAND 'COPY 'filename.mail' TO T:FTPMail.rct'
CALL Open('recent','T:FTPMail.rct','R')
DO UNTIL LEFT(READLN('recent'),3) = '|--'
END
i=0
DO WHILE ~EOF('recent')
i=i+1
line.i=READLN('recent')
IF LEFT(line.i,1) = '|' THEN BREAK
IF STRIP(line.i) = '' THEN i=i-1
END
CALL Close('recent')
c = 0
w = i%FILES
IF i//FILES >0 THEN w = w + 1
DO n = 1 to w
DO f = n*FILES-(FILES-1) to n*FILES
PARSE VAR line.f file.f dir.f size.f '+' desc.f
file.f = LEFT(file.f,18,' ')
dir.f = LEFT(dir.f,10,' ')
size.f = RIGHT(size.f,4,' ')
desc.f = LEFT(desc.f,35,)
END
reqstr = ''
DO x = f-FILES to f-1
y=x
if y<10 then y=' '||y
reqstr = reqstr || y'. 'file.x' 'dir.x' 'size.x' 'desc.x||NL
END
input = RTGETSTRING(,reqstr,MSG_FILES,MSG_FILES_GAD,pubscreen)
SELECT
WHEN rtresult = 2 THEN BREAK
WHEN rtresult = 3 THEN cleanup()
WHEN rtresult = 4 THEN DO
n = n - 2
IF n < 0 then n = 0
END
OTHERWISE DO WHILE input ~= ''
c = c+1
PARSE VAR input filenum.c input
j = filenum.c
IF STRIP(file.j) = '' THEN c = c-1
END
END
END